home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 3 / Dark_Star_03_1995_-_de_Side_B.d64 / d" (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  17KB  |  436 lines
  1. 0 sys35208:clr:sys32952:goto9000
  2. 1 input#15,a$,z$,a$,a$:ifz$="ok"thenreturn
  3. 2 printz$:close8,15:goto260
  4. 3 sys35215:a=peek(2):sys49712:return
  5. 4 sys34011:goto6150
  6. 6 sys34011:geta$:ifa$=""then6
  7. 7 sys49712:return
  8. 8 sys34011:sys34764:sys49712:return
  9. 9 kk$=right$(str$(z),len(str$(z))-1):return
  10. 10 sys34743:return
  11. 12 sys34725:return
  12. 13 sys34642:gosub6
  13. 14 ifa$<>"y"anda$<>"n"thengosub6:goto14
  14. 15 return
  15. 19 sys34616:return
  16. 21 gosub25:sys35317:goto8
  17. 23 sys35331:printc$;:sys34584:return
  18. 25 ifpeek(1024)<>85thengosub1950:sys34536:return
  19. 26 sys34087:return
  20. 29 sys34557:return
  21. 31 kk$=kk$+"                  ":kk$=left$(kk$,18):printkk$:sys34011:return
  22. 40 sys35345:return
  23. 42 print" letzter ";cp%;"cup sieger waren-:":forn=1tocp%
  24. 43 print" cup ";:a$="  "+str$(cp%+1-n):printright$(a$,4)"    "cw$(n):next:return
  25. 50 kl=len(a$):forz=1tokl:ifmid$(a$,z,1)="0"thengosub52
  26. 51 nextz:return
  27. 52 a1$=left$(a$,z-1)+"o":a2$=right$(a$,kl-z):a$=a1$+a2$:return
  28. 60 sys35411:return
  29. 61 sys35425:return
  30. 62 sys35444:return
  31. 63 sys34764:sys49712:return
  32. 69 ifz>9.99then73
  33. 70 kk$=str$(z+10.001):kk$=right$(kk$,len(kk$)-2):kk$=left$(kk$,len(kk$)-1)
  34. 71 return
  35. 72 ifz>=1000000thenkk$=str$(int(z/10000)/100)+" mil.":return
  36. 73 kk$=str$(z+.001):kk$=right$(kk$,len(kk$)-1):kk$=left$(kk$,len(kk$)-1):return
  37. 79 ifz>99999.99then72
  38. 80 ifz<0thenkk$=str$(z)+".oo":return
  39. 81 kk$=str$(z+100000.001):kk$=right$(kk$,len(kk$)-2):kk$=left$(kk$,len(kk$)-1)
  40. 82 return
  41. 98 sys34011:fork7=1to2000:nextk7:a=fre(a):return
  42. 99 sys34011:fork7=1to999:nextk7:a=fre(a):return
  43. 100 w=w+1:gosub6000:sys50176:forr=1to7:gosub1000:gosub1300
  44. 160 sys35520:gosub13:gosub6250:print"[147]":poke700,9:ifa$="n"thenpoke700,0
  45. 170 gosub500:gosub2500:gosub3000:ifr<5thengosub3500
  46. 200 nextr:gosub5500:sys35610:forn=1to8:p(n,0)=p(n,0)+500:next
  47. 216 print" du spieltest"w"woche(n)  ":print" willst du aufhoeren ?        "
  48. 217 gosub13:ifa$="n"thengosub6250:goto100
  49. 220 gosub40:print" bist du dir sicher aufzuhoeren      ?":gosub13
  50. 225 ifa$="y"thengosub6250:goto250
  51. 230 print" der buchmacher lacht nicht mehr   !!!":gosub99:gosub6250:goto100
  52. 250 print"[147] wollen sie das spiel absaven       ?":gosub13:ifa$="n"then260
  53. 255 gosub9800
  54. 260 print" danke fuer spielen  .":print" bitte schalten sie computer aus     ."
  55. 265 goto265
  56. 500 sys35604:forn=1to8:printr$(n)z$(n):next
  57. 510 n=(r%(p%(1),4)-2600)/100:a$=str$(n):a$=right$(a$,len(a$)-1):print"0"a$"00"
  58. 520 printw:printr:forn=1to8:printp%(n):nextn:a$=str$(tr):n=len(a$)
  59. 525 ifn=3thena$=a$+".":n=4
  60. 530 a$=a$+"00":n=n+2:a$=right$(a$,n-1):printleft$(a$,5):sys35607
  61. 535 ifr=7thengosub4000
  62. 540 return
  63. 800 forn=1to8:ifp(n,2)=0then815
  64. 805 z=n:gosub9:b$(n)="  "+kk$+" [146] [158]"+p$(n):z=p(n,0):gosub79
  65. 810 b$(n)=b$(n)+" $"+kk$:a$=b$(n):gosub50:b$(n)=a$
  66. 815 nextn:return
  67. 900 forn=1to8:a$="[146] [158] "+chr$(p%(n)+48)+"  "+r$(p%(n))+" [154] "+z$(p%(n))+" [146]"
  68. 905 a$=a$+str$(r%(p%(n),4)/100):y$(n)=a$:next
  69. 910 y1$=" [158] "+chr$(p%(1)+48)+"  "+r$(p%(1))+" [154]  sieg [146]  $":z=ww:gosub69
  70. 915 y1$=y1$+kk$:fork=1to3
  71. 920 i$(k)=" [158] "+chr$(p%(k)+48)+"  "+r$(p%(k))+" [154] platz [146]  $":z=dp(k)
  72. 925 gosub69:i$(k)=i$(k)+kk$:nextk:y2$="[146] zweierwette fuer"+str$(p%(1))+" und"
  73. 930 y2$=y2$+str$(p%(2))+" gibt $":z=dp(4):gosub69:y2$=y2$+kk$
  74. 935 y3$="[146] dreierwette fuer"+str$(p%(1))+" "+str$(p%(2))+" "+str$(p%(3))
  75. 940 y3$=y3$+" gibt $":z=dp(5):gosub69:y3$=y3$+kk$
  76. 950 forn=1to4:b$(n)="[146] [158] "+p$(r%(p%(n),3))+" [146] $":z=s(n):gosub9
  77. 955 b$(n)=b$(n)+kk$:nextn
  78. 960 forn=1to8:ifp(n,2)=0then975
  79. 965 c$(n)=" "+p$(n)+"[154]$":z=p(n,1):gosub79:c$(n)=c$(n)+kk$+" [158]$":z=p(n,0)
  80. 970 gosub79:c$(n)=c$(n)+kk$:a$=c$(n):gosub50:c$(n)=a$
  81. 975 next:forn=1to4:a$=b$(n):gosub50:b$(n)=a$:next:a$=y1$:gosub50:y1$=a$
  82. 998 a$=y2$:gosub50:y2$=a$:a$=y3$:gosub50:y3$=a$:forn=1to3:a$=i$(n):gosub50
  83. 999 i$(n)=a$:next:z=fre(z):sys34545:return
  84. 1000 sys35613:sys49705:b5=2790+int(rnd(0)*10):b4=2790+int(rnd(0)*20)
  85. 1010 r$(0)=rn$(r):b3=2780+int(rnd(0)*20)
  86. 1023 forn=1to8:a=n%(r,n):r%(n,0)=a:r%(n,3)=d%(a,9):r%(n,5)=d%(a,3)
  87. 1026 r%(n,6)=d%(a,1):r%(n,7)=d%(a,2):r%(n,8)=d%(a,4):r%(n,9)=d%(a,10)
  88. 1030 r%(n,10)=d%(a,5):r%(n,11)=d%(a,6):r%(n,12)=d%(a,7):t=2*(100-r%(n,11))
  89. 1040 r%(n,13)=r%(n,10)+t:t=r%(n,12)/20:r%(n,14)=int((t-int(t))*20)
  90. 1050 r%(n,15)=int(t)
  91. 1051 z=r%(n,13):t=0:ifz<b5+80thent=1:ifz<b5+40thent=2:ifz<b5+20thent=3
  92. 1052 ifz<b5+10thent=4:ifz<b5+5thent=5:ifz<b5thent=6
  93. 1053 r%(n,19)=t:t=0:ifz<b4+100thent=1:ifz<b4+80thent=2:ifz<b4+60thent=3
  94. 1054 ifz<b4+40thent=4:ifz<b4+20thent=5:ifz<b4thent=6
  95. 1055 r%(n,18)=t:t=0:ifz<b3+210thent=1:ifz<b3+160thent=2:ifz<b3+110thent=3
  96. 1056 ifz<b3+70thent=4:ifz<b3+40thent=5:ifz<b3thent=6
  97. 1057 r%(n,17)=t:r$(n)=d$(a,0):next:forn=1to8:fort=17to19
  98. 1060 ifr%(n,t)<bpthenr%(n,t)=bp
  99. 1065 nextt,n
  100. 1070 forn=1to8:poke40735+n,r%(n,14):poke40743+n,r%(n,15)
  101. 1080 poke40759+n,r%(n,17):poke40767+n,r%(n,18):poke40775+n,r%(n,19):next
  102. 1090 sys33074
  103. 1100 forn=1to8:r%(n,20)=peek(40791+n):r%(n,2)=peek(40799+n):x=int(rnd(0)*6)
  104. 1110 r%(n,15)=r%(n,15)+x:poke40743+n,r%(n,15):r%(n,16)=int(rnd(0)*8)
  105. 1120 poke40751+n,r%(n,16):next:sys33329
  106. 1140 forn=1to8:r%(n,1)=peek(40799+n):r%(n,4)=peek(40807+n)
  107. 1150 ifr%(n,20)=0thenr%(n,20)=1
  108. 1151 g=r%(n,20):ifr%(n,2)=0thenr%(n,2)=1
  109. 1152 ifg>83thenz$(n)=" *1/1o":z(n)=.1:goto1184
  110. 1153 ifg>66thenz$(n)=" *2/1o":z(n)=.2:goto1184
  111. 1154 ifg>55thenz$(n)=" *5/1o":z(n)=.5:goto1184
  112. 1155 ifg>50thenz$(n)=" *8/1o":z(n)=.8:goto1184
  113. 1156 ifg>45thenz$(n)="  1/1 ":z(n)=1:goto1184
  114. 1157 ifg>40thenz$(n)=" 12/1o":z(n)=1.2:goto1184
  115. 1158 ifg>35thenz$(n)=" 15/1o":z(n)=1.5:goto1184
  116. 1159 ifg>33thenz$(n)=" 18/1o":z(n)=1.8:goto1184
  117. 1160 ifg>28thenz$(n)="  2/1 ":z(n)=2:goto1184
  118. 1161 ifg>25thenz$(n)=" 25/1o":z(n)=2.5:goto1184
  119. 1162 ifg>22thenz$(n)="  3/1 ":z(n)=3:goto1184
  120. 1163 ifg>20thenz$(n)=" 35/1o":z(n)=3.5:goto1184
  121. 1164 ifg>16thenz$(n)="  4/1 ":z(n)=4:goto1184
  122. 1165 ifg>14thenz$(n)="  5/1 ":z(n)=5:goto1184
  123. 1166 ifg>12thenz$(n)="  6/1 ":z(n)=6:goto1184
  124. 1167 ifg=12thenz$(n)="  7/1 ":z(n)=7:goto1184
  125. 1168 ifg>9thenz$(n)="  8/1 ":z(n)=8:goto1184
  126. 1169 ifg=9thenz$(n)=" 1o/1 ":z(n)=10:goto1184
  127. 1170 ifg=8thenz$(n)=" 12/1 ":z(n)=12:goto1184
  128. 1171 ifg=7thenz$(n)=" 15/1 ":z(n)=15:goto1184
  129. 1172 ifg=6thenz$(n)=" 18/1 ":z(n)=18:goto1184
  130. 1173 ifg=5thenz$(n)=" 2o/1 ":z(n)=20:goto1184
  131. 1174 ifg=4thenz$(n)=" 25/1 ":z(n)=25:goto1184
  132. 1175 ifg=3thenz$(n)=" 33/1 ":z(n)=33:goto1184
  133. 1176 ifg=2thenz$(n)=" 5o/1 ":z(n)=50:goto1184
  134. 1177 g=r%(n,2):ifg=1thenz$(n)="5oo/1 ":z(n)=500:goto1184
  135. 1178 ifg<4thenz$(n)="2oo/1 ":z(n)=200:goto1184
  136. 1179 ifg<7thenz$(n)="1oo/1 ":z(n)=100:goto1184
  137. 1180 ifg<11thenz$(n)=" 75/1 ":z(n)=75:goto1184
  138. 1181 z$(n)=" 65/1 ":z(n)=65
  139. 1184 t=r%(n,1):p%(t)=n:next:t=r%(p%(1),13):lk=r%(p%(1),15)-int(r%(p%(1),12)/20)
  140. 1185 jm=r%(p%(1),12)-50
  141. 1190 lk=lk+r%(p%(1),16):lk=lk*10:bt=t+(120-lk)
  142. 1195 forn=1to8:r%(n,4)=bt+246-r%(n,4)-jm:next
  143. 1200 ww=.5+(z(p%(1))/2):fora=1to3:k1=100/r%(p%(a),2):k1=k1*50
  144. 1210 k1=int(k1/5)*5:dp(a)=k1/100:nexta
  145. 1213 a=(r%(p%(1),20)+r%(p%(2),20))/100:b=(r%(p%(1),2)/133)*(r%(p%(2),2)/133)
  146. 1215 a=a*b:a=1/a:b=(a*.5)+.5:a=int(b*20):dp(4)=a/20:a=1:dp(5)=dp(4)*2
  147. 1217 dp(5)=dp(5)*(dp(3)*2)
  148. 1220 a=r%(p%(1),20):b=r%(p%(2),20):c=a+b:dp(5)=dp(5)*(c/a):a=dp(5)/2
  149. 1225 a=int(a*20):dp(5)=a/20
  150. 1226 cn=1:hc=500:forn=1to8:ifz(n)<hcthenhc=z(n):cn=n
  151. 1227 next:poke49541,cn
  152. 1230 ifr=7then4500
  153. 1240 sys50176:poke53269,0:sys33904:return
  154. 1300 gosub1950:print" wollen sie mehr informationen  ?[154]":sys34536:gosub13
  155. 1310 ifa$="n"then1500
  156. 1320 gosub25:print"";:gosub1800
  157. 1322 gosub1325:gosub1450:sys34536:sys34764:sys49712:goto1365
  158. 1325 poke2,a:sys36005:c$=chr$(peek(2)):printr$(a)" "z$(a);:sys36029:return
  159. 1365 printc$"[146]starts           : ";:z=d%(r%(a,0),3):gosub9:gosub31
  160. 1366 printc$"[146]siege            : ";:z=d%(r%(a,0),1):gosub9:gosub31
  161. 1367 printc$"[146]2ter & 3ter      : ";:z=d%(r%(a,0),2):gosub9:printkk$"  "
  162. 1368 printc$"[146]unplaziert       : ";:z=d%(r%(a,0),3)-d%(r%(a,0),1)
  163. 1369 z=z-d%(r%(a,0),2):gosub9:printkk$"  ":sys34011
  164. 1370 printc$"[146]renn nummer      : "d$(r%(a,0),2)
  165. 1371 printc$"[146]position im rennen:"d$(r%(a,0),1)
  166. 1372 printc$"[146]renn typ         : ";:sys34154
  167. 1380 print"[146]";:poke253,22
  168. 1385 ifd%(r%(a,0),0)>0thenpoke2,1:poke254,178:sys35184:print"[158]*champ":goto1397
  169. 1387 ifd%(r%(a,0),1)=0thenpoke2,2:poke254,170:poke253,20:sys35184:goto1397
  170. 1389 ifd%(r%(a,0),9)=0thenpoke2,0:poke254,178:sys35184:print"[156]-mr.x-":goto1397
  171. 1391 poke2,3:poke254,178:sys35184:print"[158]neuer "
  172. 1397 poke53275,0
  173. 1398 print"[154]";:sys34536:gosub63:poke53269,0:goto1300
  174. 1450 printc$"[146]besitzer         : "p$(d%(r%(a,0),9)):sys34512
  175. 1465 printc$"[146]trainer          : "t$(d%(r%(a,0),10))
  176. 1470 printc$"[146]fitness          : ";:z=d%(r%(a,0),6):gosub9:printkk$"%"
  177. 1475 printc$"[146]startverhalten   : ";:z=d%(r%(a,0),7):gosub9:printkk$"%"
  178. 1480 printc$"[146]beste zeit       : ";:z=d%(r%(a,0),4)/100:gosub9
  179. 1481 ifkk$="99.99"thenkk$="unraced"
  180. 1482 printkk$
  181. 1485 printc$"[146]wert             : $";:z=d%(r%(a,0),8)*10:gosub9:printkk$
  182. 1490 printc$"[146]cup siege        : ";:z=d%(r%(a,0),0):gosub9:printkk$""
  183. 1491 sys34011:return
  184. 1500 forn=1top:p(n,1)=p(n,0):next:forx=1to8:ifp(x,2)=0then1600
  185. 1515 gosub25:a=0:forn=16to1step-1:ifmid$(p$(x),n,1)="."thena=n
  186. 1520 next:b$=p$(x):ifa>1thenb$=left$(p$(x),a-1)
  187. 1525 ifp(x,1)<0thenprint" du bist kredit risiko "b$"[154]":goto1610
  188. 1530 print" wollen sie wetten     "b$"?":gosub13:ifa$="n"then1600
  189. 1540 gosub25:print" (s)ieg (p)latz  (d)reier    (z)weier  ":a2=0:a3=0
  190. 1545 print"[154]";:gosub19:print"  druecken sie s-p-z-d fuer wetttyp   .[146]"
  191. 1550 gosub6:ifa$<>"s"anda$<>"p"anda$<>"z"anda$<>"d"then1550
  192. 1555 tb$=a$:gosub25:ifa$="d"thengosub6400:gosub25:goto1530
  193. 1556 ifa$="z"thengosub6300:gosub25:goto1530
  194. 1557 ifa$="p"thengosub1570:gosub25:goto1530
  195. 1558 ifa$="s"thengosub1560:gosub25:goto1530
  196. 1560 gosub1800:print"";:input" wetthoehe    ";am:ifam>10000orint(am)<>amthen21
  197. 1561 ifam<1then21
  198. 1562 gosub1820:ifp%(1)=athenp(x,0)=p(x,0)+((ww*2)*am)
  199. 1569 goto1596
  200. 1570 gosub1800:print"";:input" wetthoehe    ";am:ifam>10000orint(am)<>amthen21
  201. 1571 ifam<1then21
  202. 1572 gosub1820:ifp%(1)=aorp%(2)=aorp%(3)=athenp(x,0)=p(x,0)+((dp(r%(a,1))*2)*am)
  203. 1579 goto1596
  204. 1580 gosub1800:a2=a:gosub1800:print"";:input" wetthoehe    ";am
  205. 1581 ifam>10000orint(am)<>amoram<1then21
  206. 1582 gosub1820:ifp%(1)<>aandp%(2)<>athen1596
  207. 1583 ifp%(1)<>a2andp%(2)<>a2then1596
  208. 1584 p(x,0)=p(x,0)+((dp(4)*2)*am):goto1596
  209. 1590 print" waehle 3 hunde in reihenfolge        .":gosub99:gosub25
  210. 1591 gosub1800:a3=a:gosub1800:a2=a:gosub1800:gosub25
  211. 1592 input" wetthoehe    ";am:ifam>10000orint(am)<>amoram<1then21
  212. 1593 ifbt=1then6500
  213. 1594 gosub1820:ifp%(3)<>aorp%(2)<>a2orp%(1)<>a3then1596
  214. 1595 p(x,0)=p(x,0)+((dp(5)*2)*am)
  215. 1596 gosub25:print" letzte wette war      [154] ";
  216. 1597 ifa3<>0thenprintchr$(a3+48)" ";
  217. 1598 ifa2<>0thenprintchr$(a2+48)" ";
  218. 1599 printchr$(a+48)" [146]":print" wert war   [154] $";:z=am:gosub9:goto1700
  219. 1600 nextx:return
  220. 1610 sys34764:goto1600
  221. 1700 printkk$" [146] or ";:z=am*2:gosub9:printkk$" units":sys34011:goto8
  222. 1800 print" hundenummer-waehle          ( 1 - 8 )":gosub3:return
  223. 1820 p(x,0)=p(x,0)-am:return
  224. 1950 sys36008:printr$(0):sys36011:forn=1to8:sys36023
  225. 1975 printd$(r%(n,0),1)"[150] "n"[157] "r$(n)" "z$(n)" ";:nextn:sys36026:return
  226. 1999 sys34536:return
  227. 2500 s(1)=2000:s(2)=1000:s(3)=400:s(4)=200
  228. 2510 g$=right$(str$(r),1):forn=1to8:d$(r%(n,0),2)=right$(d$(r%(n,0),2)+g$,10)
  229. 2520 next:forn=1to8:g=r%(n,1):g$=right$(str$(g),1)
  230. 2530 d$(r%(n,0),1)=right$(d$(r%(n,0),1)+g$,10):next
  231. 2540 d%(r%(p%(1),0),1)=d%(r%(p%(1),0),1)+1
  232. 2560 d%(r%(p%(2),0),2)=d%(r%(p%(2),0),2)+1
  233. 2570 d%(r%(p%(3),0),2)=d%(r%(p%(3),0),2)+1
  234. 2580 forn=1to8:d%(r%(n,0),3)=d%(r%(n,0),3)+1:next
  235. 2590 forn=1to8:g=r%(n,0):ifr%(n,4)<d%(g,4)thend%(g,4)=r%(n,4)
  236. 2600 next:ifr<5thens(1)=1000:s(2)=500:s(3)=200:s(4)=100:s%(r)=r%(p%(8),0)
  237. 2610 ifr=1thenforn=1to4:n%(5,n)=r%(p%(n),0):next
  238. 2620 ifr=2thenforn=1to4:n%(5,n+4)=r%(p%(n),0):next
  239. 2630 ifr=3thenforn=1to4:n%(6,n)=r%(p%(n),0):next
  240. 2640 ifr=4thenforn=1to4:n%(6,n+4)=r%(p%(n),0):next
  241. 2650 ifr=5thenforn=1to4:n%(7,n)=r%(p%(n),0):next
  242. 2660 ifr=6thenforn=1to4:n%(7,n+4)=r%(p%(n),0):next
  243. 2665 ifr=7thens(1)=10000:s(2)=5000:s(3)=2000:s(4)=1000
  244. 2670 g=r%(p%(1),4):ifg<tr*100thentr=g/100
  245. 2680 forn=1to4:a(n)=r%(p%(n),0):next:forn=1to4:a=d%(a(n),8)+(s(n)/10)
  246. 2690 ifa>30000thena=30000
  247. 2700 d%(a(n),8)=int(a):p(d%(a(n),9),0)=p(d%(a(n),9),0)+s(n):nextn
  248. 2900 return
  249. 3000 gosub900:poke53280,0:poke53281,0:poke253,40:poke254,58:poke2,2:sys35184
  250. 3015 gosub40:sys33873:print" endpositionen   -:":gosub60
  251. 3017 forn=1to8:printy$(n):next:gosub60:sys34536:sys50176:gosub8
  252. 3035 gosub40:print" dividends -:":sys35425
  253. 3037 printy1$:sys35425:fork=1to3:printi$(k):nextk:sys35425:printy2$:printy3$
  254. 3040 gosub8:gosub40
  255. 3045 print" die besitzer der ersten vier hunde   :":sys35444
  256. 3047 forn=1to4:printb$(n):next:sys35444:gosub8:gosub40
  257. 3100 print" geld vor und nach  dem rennen   -  :":forn=1to8:ifp(n,2)=0then3150
  258. 3110 printc$(n)
  259. 3150 nextn:gosub8:goto6250
  260. 3500 poke53280,0:poke53281,0:poke253,40:poke254,68:poke2,3:sys35184:gosub40
  261. 3510 sys33873:a=d%(s%(r),8)*5:b=d%(s%(r),9):p(b,0)=p(b,0)+a
  262. 3512 print" nachricht an     "p$(b)
  263. 3515 print" "d$(s%(r),0)" wurde verkauft weil ":rk=int(rnd(0)*12)
  264. 3516 ifrk=0thenprint" er die bahn gewechselt hat und alle   ":print" biss.   "
  265. 3517 ifrk=1thenprint" er nutzlos ist"
  266. 3518 ifrk=2thenprint" er dein ist."
  267. 3519 ifrk=3thenprint" er mir pech bringt.  "
  268. 3520 ifrk=4thenprint" er gefaehrlich ist."
  269. 3521 ifrk=5thenprint" er zu schnell fuer alle gewesen ist ":print"          ";
  270. 3522 ifrk=5thenprint"      "
  271. 3523 ifrk=6thenprint" grr."
  272. 3525 ifrk=7thenprint" er fast immer der  schlechteste war. "
  273. 3526 ifrk=8thenprint" er mit seinen gegner flirtet.        "
  274. 3527 ifrk=9thenprint" er krank ist."
  275. 3528 ifrk=10thenprint" er auf gegner wettet."
  276. 3529 ifrk=11thenprint" er fuer dein geld zuvie  frisst,..und "
  277. 3530 ifrk=11thenprint" saeuft und dafuer zu wenig power     "
  278. 3531 ifrk=11thenprint" auf der bahn bringt !!!               "
  279. 3534 print" der hund wird einem farmer verkauft ":print"fuer $";:z=a:gosub9
  280. 3535 printkk$:sys34011
  281. 3550 n=s%(r):gosub9990:gosub8:gosub6250:poke2,1:sys35184:gosub40:sys33873
  282. 3555 rk=int(rnd(0)*8)+1:ifp(rk,2)=0then3555
  283. 3560 print" ";p$(rk);".ein zuechter ist zu "
  284. 3570 print"ihnen gekommen.er will einen hund  "
  285. 3580 print"im rennalter verkaufen  ."
  286. 3590 print" vaters bestzeit    ="(d%(s%(r),5)-100+int(rnd(0)*200))/100
  287. 3600 print" mutters bestzeit   ="(d%(s%(r),5)-50+int(rnd(0)*200))/100
  288. 3610 print" preis=$";:z=d%(s%(r),8)*10:gosub9:printkk$:sys34011
  289. 3620 print" wollen sie den hund kaufen  ?":gosub13:print"";:ifa$="n"then3700
  290. 3640 input" renn-name  ";a$:a$=a$+"................":a$=left$(a$,16)
  291. 3650 a=0:forn=1to32:ifa$=d$(n,0)thena=1
  292. 3660 nextn:ifa=1thenprint" dieser name ist truebselig":gosub99:gosub40:goto3640
  293. 3670 d$(s%(r),0)=a$:d%(s%(r),9)=rk:p(rk,0)=p(rk,0)-(d%(s%(r),8)*10)
  294. 3680 goto3750
  295. 3700 gosub6250:poke2,0:sys35184:gosub40:sys33873
  296. 3705 print" der hund wurde   gekauft von dem ":print" x-syndicate und heist ";
  297. 3710 printd$(s%(r),0):print" in erinnerung an den vater.        "
  298. 3720 print"     ...ruehrend nicht ???":d%(s%(r),6)=75+int(rnd(0)*25):gosub8
  299. 3750 goto6250
  300. 4000 cp%=cp%+1:ifr$(p%(1))=cc$thencc%=cc%+1:goto4030
  301. 4025 cc%=1:cc$=r$(p%(1))
  302. 4030 ifcc%>=mc%thenmc%=cc%:mc$=cc$
  303. 4035 d%(r%(p%(1),0),0)=d%(r%(p%(1),0),0)+1
  304. 4040 forn=1to32:ifd%(n,0)>=ch%thench%=d%(n,0):ch$=d$(n,0)
  305. 4045 next:forn=9to1step-1:cw$(n+1)=cw$(n):next:cw$(1)=cc$:return
  306. 4500 gosub8500:gosub6250
  307. 4510 poke53280,0:poke53281,0:poke253,40:poke254,68:poke2,1:sys35184:gosub40
  308. 4520 sys33873:sys50176:print" die 10 schnellsten hunde     -:":forn=1to10
  309. 4530 printright$(str$(n),2)" "f$(n);:g=f(n)+.001:g$=left$(str$(g),6)
  310. 4540 printg$:next:gosub8:ifcp%<2then6250
  311. 4543 gosub40:ifcp%<10thengosub42:goto4555
  312. 4545 print" die letzten 10 cupsieger    -:":forn=1to10
  313. 4550 print" cup ";:a$="  "+str$(cp%+1-n):printright$(a$,4)"    "cw$(n):next
  314. 4555 gosub8
  315. 4560 gosub40
  316. 4570 print" letzter cupsieger   "cc$:print" aufeinanderfolgende cupsiege   =";
  317. 4580 printcc%:print" meiste folgende cupsiege       ="mc%
  318. 4590 print" letztens erreicht..."mc$:print" "ch$"haelt den rekord"ch%
  319. 4600 print" von allen   "cp%"cup siegen.":gosub8:goto6250
  320. 5500 g2=0:sys33778:sys34011:sys33873:sys50501
  321. 5520 forn=1to32:ifd%(n,9)<>0theng2=g2+1:gosub5600
  322. 5530 nextn:ifg2=0thengosub98
  323. 5540 gosub800:sys33904:return
  324. 5600 b=d%(n,9):iq$="    "+p$(b)+"wer traeniert  "+d$(n,0)+"......"
  325. 5610 iq$=iq$+" druecke eine taste( 1-4 ) fuer trainer":ls=len(iq$):ct=0
  326. 5615 ct=ct+1:a$=mid$(iq$,ct,1):printa$;:sys33863:poke56294,0:geta$
  327. 5620 ifa$="1"ora$="2"ora$="3"ora$="4"thena=val(a$):goto5900
  328. 5621 fora=1to40:nexta:k5=0:ifct<>lsthen5615
  329. 5622 k5=k5+1:geta$:ifa$="1"ora$="2"ora$="3"ora$="4"thena=val(a$):goto5900
  330. 5623 ifk5=50then5600
  331. 5624 goto5622
  332. 5625 iq$="      "+t$(a)+" dankt dir fuer den neuen auftrag                 "
  333. 5626 ls=len(iq$):fort=1tols:a$=mid$(iq$,t,1):printa$;:sys33863:poke56294,0
  334. 5627 forx=1to40:nextx,t
  335. 5630 ifa=1thend%(n,6)=int(d%(n,6)*1.2):d%(n,7)=d%(n,7)+3:p(b,0)=p(b,0)-900
  336. 5640 ifa=2thenp(b,0)=p(b,0)-300
  337. 5660 ifa=3thend%(n,6)=int(d%(n,6)*.9):p(b,0)=p(b,0)-200
  338. 5670 ifa=4thend%(n,6)=int(d%(n,6)*.5):p(b,0)=p(b,0)-100
  339. 5675 d%(n,10)=a
  340. 5680 ifd%(n,6)>99thend%(n,6)=99
  341. 5690 ifd%(n,7)>99thend%(n,7)=99
  342. 5700 return
  343. 5900 ifg2=1then5625
  344. 5910 goto5630
  345. 6000 sys35616:print" es spielen jetzt   "p"spieler  ":ifp=0thengoto4
  346. 6020 print" ihre namen und geldsummen sind:":forn=1to8:ifp(n,2)=0then6027
  347. 6025 printb$(n)
  348. 6027 nextn:ifp=1thengosub8:goto6100
  349. 6030 print" wollen spieler aufhoeren ?     ":gosub13:print"";
  350. 6040 ifa$="n"then6100
  351. 6050 print"[145][145][145] spielernummer bitte   ?        "
  352. 6055 print"                                       "
  353. 6056 print"                                        ":gosub3
  354. 6060 p(a,2)=0:p=p-1:forn=1to32:ifd%(n,9)=athend%(n,9)=0
  355. 6070 nextn:ifp<2then6100
  356. 6080 print"[145][145][145][145] hoeren andere spieler auf?":gosub13:print"[145]";
  357. 6090 ifa$="y"then6050
  358. 6100 ifp=8then6200
  359. 6110 gosub40:print" sind dort neue spieler    ?":gosub13:print"";
  360. 6120 ifa$="n"then6200
  361. 6150 print:forn=8to1step-1:ifp(n,2)=0thena=n
  362. 6160 nextn:p(a,0)=20000:p(a,2)=1:input" spieler name";a$:a$=a$+"..............."
  363. 6165 a$=a$+"..":gosub40
  364. 6170 p=p+1:p$(a)=left$(a$,16):ifp<8thenprint" noch mehr spieler    ?":gosub13
  365. 6180 ifp<8thenprint"";:goto6120
  366. 6200 gosub40:print"     der start von der woche  "w
  367. 6210 forn=1to32:f4=int(rnd(0)*4)+1:f8=int(rnd(0)*8)+1:t4=int(rnd(0)*4)+1
  368. 6220 t8=int(rnd(0)*8)+1:a=n%(f4,f8):n%(f4,f8)=n%(t4,t8):n%(t4,t8)=a:next
  369. 6250 sys33904:poke53269,0:return
  370. 6300 print" willst du nur einen hund nennen     ?"
  371. 6310 print" (das kostet dich das siebenfache )   ":gosub13:gosub25
  372. 6320 ifa$="n"then1580
  373. 6340 gosub1800:print"";:input" wetthoehe    ";am
  374. 6350 ifam>10000orint(am)<>amoram<1then21
  375. 6360 am=am*7:gosub1820:am=int(am/7):ifp%(1)=aorp%(2)=athen6370
  376. 6365 a2=22:am=am*7:goto1596
  377. 6370 p(x,0)=p(x,0)+((dp(4)*2)*am):goto6365
  378. 6400 print" wollen sie beliebige reihenfolge      "
  379. 6410 print" (das kostet dich das sechsfache)     ":gosub13:gosub25
  380. 6420 ifa$="n"thenbt=0:goto1590
  381. 6430 bt=1:goto1591
  382. 6500 am=am*6:gosub1820:am=int(am/6):ifp%(3)<>aandp%(2)<>aandp%(1)<>athen6540
  383. 6510 ifp%(3)<>a2andp%(2)<>a2andp%(1)<>a2then6540
  384. 6520 ifp%(3)<>a3andp%(2)<>a3andp%(1)<>a3then6540
  385. 6530 p(x,0)=p(x,0)+((dp(5)*2)*am)
  386. 6540 am=am*6:goto1596
  387. 8500 forn=1to32:ifd%(n,4)>=f(10)*100then8600
  388. 8515 a=1
  389. 8516 ifd%(n,4)=f(a)*100andd$(n,0)=f$(a)then8600
  390. 8520 a=a+1:ifa<11then8516
  391. 8522 a=1
  392. 8525 ifd$(n,0)=f$(a)theng=a:goto8532
  393. 8530 a=a+1:ifa<11then8525
  394. 8531 g=0:goto8540
  395. 8532 ifg=10then8540
  396. 8535 fora=gto9:f(a)=f(a+1):f$(a)=f$(a+1):nexta
  397. 8540 fora=10to1step-1:ifd%(n,4)<f(a)*100theng=a
  398. 8545 nexta:ifg=10thenf$(10)=d$(n,0):f(10)=d%(n,4)/100:goto8600
  399. 8550 fora=9togstep-1:f(a+1)=f(a):f$(a+1)=f$(a):nexta:f$(g)=d$(n,0)
  400. 8555 f(g)=d%(n,4)/100
  401. 8600 ifpeek(53252)>150andpeek(53264)>0thenpoke53269,0
  402. 8610 nextn:tr=f(1):return
  403. 9000 dimd$(32,2),d%(32,10),r%(32,20),p(10,2),n%(7,8)
  404. 9010 open15,8,15:ifpeek(2)=0thenopen8,8,8,"odata,s,r":gosub1:goto9030
  405. 9020 open8,8,8,"sdata,s,r":gosub1
  406. 9030 input#8,fm$:forn=1to10:input#8,f$(n):next:forn=1to10:input#8,f(n):next
  407. 9040 input#8,mc$,mc%,cc$,cc%,cp%,ch$,ch%:forn=1to10:input#8,cw$(n):next
  408. 9050 forn=1to32:input#8,d$(n,0),d$(n,1),d$(n,2):forx=0to10:input#8,d%(n,x)
  409. 9051 nextx,n:input#8,p:ifp=0then9060
  410. 9052 forn=1to10:input#8,p(n,0),p(n,2),p$(n):nextn
  411. 9060 close8:gosub1:open8,8,8,"rdata,s,r":forn=1to7:input#8,rn$(n):next
  412. 9070 gosub1:close8:close15
  413. 9080 forn=1to8:fora=1to4:n%(a,n)=n+((a-1)*8):nexta,n
  414. 9085 forn=1to32:d$(n,0)=left$(d$(n,0),16):d$(n,1)=left$(d$(n,1),10)
  415. 9090 d$(n,2)=left$(d$(n,2),10):next:forn=1to10:f$(n)=left$(f$(n),16)
  416. 9095 cw$(n)=left$(cw$(n),16):next:mc$=left$(mc$,16):cc$=left$(cc$,16)
  417. 9097 ch$=left$(ch$,16):t$(1)="peter payforbest":t$(2)="neville notsobad"
  418. 9098 t$(3)="neil notsogood":t$(4)="harry hitandrun":p$(0)="the x-syndicate."
  419. 9100 tr=f(1):gosub800:bp=0:sys35616:print" reklame fuer schwache windhunde  ?"
  420. 9110 gosub13:ifa$="n"then100
  421. 9120 sys35616:input" wieviel    (1-4) ";bp:bp=int(bp+1):ifbp<2orbp>5then9120
  422. 9130 goto100
  423. 9800 open15,8,15:open8,8,8,"@0:sdata,s,w":gosub1:s$=chr$(13):print#8,fm$
  424. 9810 forn=1to10:print#8,f$(n):next:forn=1to10:print#8,f(n):next
  425. 9820 print#8,mc$,s$,mc%,s$,cc$,s$,cc%,s$,cp%,s$,ch$,s$,ch%:forn=1to10
  426. 9830 print#8,cw$(n):next:forn=1to32:print#8,d$(n,0),s$,d$(n,1),s$,d$(n,2)
  427. 9838 forx=0to10:print#8,d%(n,x):nextx,n:print#8,p:r$=chr$(13):forn=1to10
  428. 9839 print#8,p(n,0),r$,p(n,2),r$,p$(n):nextn
  429. 9840 close8:gosub1:close15:return
  430. 9990 d$(n,1)="----------":d$(n,2)=d$(n,1):fora=0to3:d%(n,a)=0:next:d%(n,4)=9999
  431. 9991 d%(n,5)=int(rnd(0)*251)+2800:d%(n,6)=50:d%(n,7)=int(rnd(0)*100)
  432. 9992 ifint(rnd(0)*2)=0thend%(n,5)=d%(n,5)-2:goto9992
  433. 9993 x=(3100-d%(n,5))/2
  434. 9994 x=x^2:ifx>10000thenx=x+(x-10000):ifx>30000thenx=x+(10*(x-30000))
  435. 9999 x=int(x/10):d%(n,8)=x:d%(n,9)=0:d%(n,10)=2:return
  436.